home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / MPW Oberon 2.1168 / OInterfaces / CMConversions.mod < prev    next >
Encoding:
Text File  |  1995-08-10  |  4.6 KB  |  106 lines  |  [TEXT/MPS ]
  1. (*
  2.      File:        CMConversions.mod
  3.  
  4.      Contains:    ColorSync base <-> derived color space conversion Components.Component interface
  5.  
  6.      Version:    Technology:    ColorSync 2.0
  7.                  Package:    Universal Interfaces 2.1ß1 in “MPW Prerelease” on ETO #17
  8.  
  9.      Copyright:    © 1984-1995 by Apple Computer, Inc.
  10.                  All rights reserved.
  11.  
  12.      Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  13.                  stack.  Include the file and version information (from above)
  14.                  in the problem description and send to:
  15.                      Internet:    apple.bugs.applelink.apple.com
  16.                      AppleLink:    APPLE.BUGS
  17.  
  18. *)
  19.  
  20. (*$TAGS-*)
  21. (*$CALLING PASCAL*)
  22. MODULE CMConversions;
  23.  
  24. IMPORT SYSTEM, Components, CMICCProfile, CMApplication;
  25.  
  26. (* $PUSH*)
  27. (* $ALIGN MAC68K*)
  28. (* $LibExport+*)
  29.  
  30. CONST
  31.     CMConversionInterfaceVersion* = 1;
  32.  
  33. (* Components.Component function selectors *)
  34.     kCMXYZToLab*                    = 0;
  35.     kCMLabToXYZ*                    = 1;
  36.     kCMXYZToLuv*                    = 2;
  37.     kCMLuvToXYZ*                    = 3;
  38.     kCMXYZToYxy*                    = 4;
  39.     kCMYxyToXYZ*                    = 5;
  40.     kCMRGBToHLS*                    = 6;
  41.     kCMHLSToRGB*                    = 7;
  42.     kCMRGBToHSV*                    = 8;
  43.     kCMHSVToRGB*                    = 9;
  44.     kCMRGBToGRAY*                = 10;
  45.     kCMXYZToFixedXYZ*            = 11;
  46.     kCMFixedXYZToXYZ*            = 12;
  47.  
  48.  
  49. PROCEDURE CMXYZToLab*(ci: Components.ComponentInstance; (*CONST*)VAR src: CMApplication.CMColor; (*CONST*)VAR white: CMICCProfile.CMXYZColor; VAR dst: CMApplication.CMColor; count: LONGINT): Components.ComponentResult;
  50.     (*$IF NOT GENERATINGCFM*)
  51.     INLINE PASCAL $2F3C, 16, 0, $7000, $A82A;
  52.     (*$END*)
  53. PROCEDURE CMLabToXYZ*(ci: Components.ComponentInstance; (*CONST*)VAR src: CMApplication.CMColor; (*CONST*)VAR white: CMICCProfile.CMXYZColor; VAR dst: CMApplication.CMColor; count: LONGINT): Components.ComponentResult;
  54.     (*$IF NOT GENERATINGCFM*)
  55.     INLINE PASCAL $2F3C, 16, 1, $7000, $A82A;
  56.     (*$END*)
  57. PROCEDURE CMXYZToLuv*(ci: Components.ComponentInstance; (*CONST*)VAR src: CMApplication.CMColor; (*CONST*)VAR white: CMICCProfile.CMXYZColor; VAR dst: CMApplication.CMColor; count: LONGINT): Components.ComponentResult;
  58.     (*$IF NOT GENERATINGCFM*)
  59.     INLINE PASCAL $2F3C, 16, 2, $7000, $A82A;
  60.     (*$END*)
  61. PROCEDURE CMLuvToXYZ*(ci: Components.ComponentInstance; (*CONST*)VAR src: CMApplication.CMColor; (*CONST*)VAR white: CMICCProfile.CMXYZColor; VAR dst: CMApplication.CMColor; count: LONGINT): Components.ComponentResult;
  62.     (*$IF NOT GENERATINGCFM*)
  63.     INLINE PASCAL $2F3C, 16, 3, $7000, $A82A;
  64.     (*$END*)
  65. PROCEDURE CMXYZToYxy*(ci: Components.ComponentInstance; (*CONST*)VAR src: CMApplication.CMColor; VAR dst: CMApplication.CMColor; count: LONGINT): Components.ComponentResult;
  66.     (*$IF NOT GENERATINGCFM*)
  67.     INLINE PASCAL $2F3C, 12, 4, $7000, $A82A;
  68.     (*$END*)
  69. PROCEDURE CMYxyToXYZ*(ci: Components.ComponentInstance; (*CONST*)VAR src: CMApplication.CMColor; VAR dst: CMApplication.CMColor; count: LONGINT): Components.ComponentResult;
  70.     (*$IF NOT GENERATINGCFM*)
  71.     INLINE PASCAL $2F3C, 12, 5, $7000, $A82A;
  72.     (*$END*)
  73. PROCEDURE CMRGBToHLS*(ci: Components.ComponentInstance; (*CONST*)VAR src: CMApplication.CMColor; VAR dst: CMApplication.CMColor; count: LONGINT): Components.ComponentResult;
  74.     (*$IF NOT GENERATINGCFM*)
  75.     INLINE PASCAL $2F3C, 12, 6, $7000, $A82A;
  76.     (*$END*)
  77. PROCEDURE CMHLSToRGB*(ci: Components.ComponentInstance; (*CONST*)VAR src: CMApplication.CMColor; VAR dst: CMApplication.CMColor; count: LONGINT): Components.ComponentResult;
  78.     (*$IF NOT GENERATINGCFM*)
  79.     INLINE PASCAL $2F3C, 12, 7, $7000, $A82A;
  80.     (*$END*)
  81. PROCEDURE CMRGBToHSV*(ci: Components.ComponentInstance; (*CONST*)VAR src: CMApplication.CMColor; VAR dst: CMApplication.CMColor; count: LONGINT): Components.ComponentResult;
  82.     (*$IF NOT GENERATINGCFM*)
  83.     INLINE PASCAL $2F3C, 12, 8, $7000, $A82A;
  84.     (*$END*)
  85. PROCEDURE CMHSVToRGB*(ci: Components.ComponentInstance; (*CONST*)VAR src: CMApplication.CMColor; VAR dst: CMApplication.CMColor; count: LONGINT): Components.ComponentResult;
  86.     (*$IF NOT GENERATINGCFM*)
  87.     INLINE PASCAL $2F3C, 12, 9, $7000, $A82A;
  88.     (*$END*)
  89. PROCEDURE CMRGBToGray*(ci: Components.ComponentInstance; (*CONST*)VAR src: CMApplication.CMColor; VAR dst: CMApplication.CMColor; count: LONGINT): Components.ComponentResult;
  90.     (*$IF NOT GENERATINGCFM*)
  91.     INLINE PASCAL $2F3C, 12, 10, $7000, $A82A;
  92.     (*$END*)
  93. PROCEDURE CMXYZToFixedXYZ*(ci: Components.ComponentInstance; (*CONST*)VAR src: CMICCProfile.CMXYZColor; VAR dst: CMICCProfile.CMFixedXYZColor; count: LONGINT): Components.ComponentResult;
  94.     (*$IF NOT GENERATINGCFM*)
  95.     INLINE PASCAL $2F3C, 12, 11, $7000, $A82A;
  96.     (*$END*)
  97. PROCEDURE CMFixedXYZToXYZ*(ci: Components.ComponentInstance; (*CONST*)VAR src: CMICCProfile.CMFixedXYZColor; VAR dst: CMICCProfile.CMXYZColor; count: LONGINT): Components.ComponentResult;
  98.     (*$IF NOT GENERATINGCFM*)
  99.     INLINE PASCAL $2F3C, 12, 12, $7000, $A82A;
  100.     (*$END*)
  101.  
  102. (* $ALIGN RESET*)
  103. (* $POP*)
  104.  
  105.  END CMConversions.
  106.